`qws` <-
function(rule, data, w1, w2)
{
	# qws
	con = cons(rule, data)
	cov = cover(rule, data)
	w1 = 0.5+0.25*con
	w2 = 0.5-0.25*con
	return (w1*con+w2*cov)

}

